home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_b / snow.act < prev    next >
Text File  |  1995-04-22  |  497b  |  41 lines
  1. PROC MAIN() 
  2.  
  3. BYTE RND=53770 
  4.  
  5. BYTE ARRAY DLST= 
  6. [112 68 00 $90 
  7. 4 4 4 4 4 4 4 4 4 4 
  8. 4 4 4 4 4 4 4 4 4 4 
  9. 4 4 4 4 4 4 4 4 4 4 
  10. 4 4 4 4 4 4 4 4 4 4] 
  11.  
  12. BYTE POINTER L                  
  13.  
  14. CARD DL=560 
  15.  
  16.   L=712 L^=0 
  17.   L=708 L^=4 
  18.   L=709 L^=8 
  19.   L=710 L^=12 
  20.   L=53768 L^=0 
  21.   L=53775 L^=3 
  22.   L=53760 L^=3 
  23.   L=53761 L^=15 
  24.   L=756 L^=$80 
  25.   L=559 L^=35 
  26.  
  27.   DL=DLST 
  28.  
  29.   FOR L=$9000 TO $9600 DO 
  30.     L^=RND&63 
  31.   OD 
  32.  
  33.   DO 
  34.     FOR L=$8000 TO $8200 DO 
  35.       L^=RND 
  36.     OD 
  37.   OD 
  38.  
  39. RETURN 
  40.  
  41.